Top 10k strings from Oligopoly (1983)(CCS).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
10 ;"Year ";t
10 ;"Firm ";k;
8 ;"______":
6 p(k,t)=p(k,t-1
6 ;"Money in hand":
6 ;" ":
5 ;"(Press any key to continue.)":
4 z(k,t)=0.75
4 u(k,t)>960000
4 tn=tn+n(k,t-1
4 s333*q(k,t-1
4 r(k,t)>100000
4 q(k,t)>c(k)/20
4 p(k,t)>p(k,t-1
4 m(k,t)>100000
4 i(k,t)>i/n
4 i(k,t)=c(k)/20
4 e(k)<-3000
4 c(k)=c(k)+i(k,t)
4 ;"price of renewing equipment";
4 ;"Net profit":
4 ;"Gross profit":
4 ;"Depreciation":
4 3333*a(t-1
4 (h(k,t)+.5
4 (c(k)*.075
4 &fff*a(t-1
2 z=z+z(k,t):
2 z(k,t)=p1*f3+f2/m2+f1/r3
2 z(k,t)=1.5
2 z(k,t)=0.25
2 x$);x$;"%"
2 v(k,t)=v(k,t-1
2 v(k,t)=(1.15
2 u(k,t)>500000
2 u(k,t)=e(k)+
2 tx=tr*(g(k,t)-o(k,t)-w(k,t))
2 tr=tr+0.05
2 to=to+s(k,t):
2 tn/n>15521
2 tn/n>12674
2 t(k)=tx/tr
2 t(k)=-t(k)
2 s333*b(k,t)
2 s(k,t)>s(k,t-1
2 s(k,t)>q(k,t)+k(k)
2 s(k,t)=s(k,t-1
2 s(k,t)=q*z(k,t)/z
2 s(k,t)=q(k,t)+k(k)
2 r2=r2+r(k,t-1
2 r1=r1+r(k,t)
2 r(k,t)>r(1
2 r(k,t)>8000
2 r(k,t)=r(k,t-1
2 r(k,t)=r(k,t)-1870
2 r(k,t)=100000
2 r(k,t)=1000
2 r(k,t)<r1/n
2 r(k,t)<1000
2 r(k,t)*n>r1
2 q=q+s(k,t-1
2 q(k,t)>1.5
2 q(k,t)=q(k,t)-
2 q(k,t)=1.5
2 pp=pp+p(k,t-1
2 p=p+p(k,t)
2 p(k,t)>1.55
2 p(k,t)>1.26
2 p(k,t)>1.15
2 p(k,t)=p(k,t)-dif*
2 p(k,t)=p(k,t)-
2 p(k,t)=p(k,t)+1
2 p(k,t)<.89
2 mm=mm+m(k,t-1
2 m=m+m(k,t)
2 m(k,t)>11000
2 m(k,t)>1.8
2 m(k,t)=m(k,t-1
2 m(k,t)=m(k,t)-1580
2 m(k,t)=m(k,t)*(1
2 m(k,t)=m(1
2 m(k,t)=3000
2 m(k,t)=100000
2 m(k,t)<2000
2 k(k)=q(k,t)-s(k,t)+k(k)
2 k(k)<c(k)/100
2 i=i+i(k,t):
2 i(k,t)>6000
2 i(k,t)>15000
2 i(k,t)>100000
2 i(k,t)=i(k,t)/f4*h19
2 i(k,t)=i(k,t)-2340
2 i(k,t)=i(k,t)*h19
2 i(k,t)=c(k)/40
2 i(k,t)=100000
2 i(k,t)<i/n
2 i(k,t)<1000
2 h(k,t)=h(k,t)+(q(k,t)-c(k)/20
2 h(k,t)=f(k,t)+q(k,t)*v(k,t):
2 h(k,t),f(k,t),v(k,t),q(k,t),i(k,t),r(k,t),m(k,t),s(k,t),p(k,t),g(k,t),b(k,t),t(k),n(k,t),e(k),k(k),c(k),u(k,t),d(k,t),o(k,t)
2 fff*b(k,t)
2 f4=i/a(t):
2 f(k,t)=f(k,t-1
2 e(k)<-2000
2 dif=p(k,t)-p(1
2 d(k,t)>100000
2 d(k,t)=100000
2 c(k)=c(k)+i(k,t):
2 c(k)=c(k)+
2 b(k,t)=b(k,t-1
2 b(k,t)=b(k,t)*1.2
2 b(k,t)=1.05
2 b(k,t)=1.02
2 b(k,t)=.985
2 b(k,t)=.97
2 b(k,t)=.95
2 an=an+s(k,t)/to*2
2 a(t)>a(t-1
2 a(t)=n*o(1
2 a(t)=a(t)+i(k,t-1
2 a(t)=a(t)*(1
2 a(t)<a(t-1
2 a(t);" this year."
2 VELOPMENT ":
2 ;"will rise by ";
2 ;"will fall by ";
2 ;"tries is ";
2 ;"overheads":
2 ;"again ."
2 ;"Year ";t:
2 ;"WE CONCEDE !":
2 ;"Unfortunately this firm is bankrupt and will not be deciding anything !":
2 ;"Trading Account":
2 ;"TAXES UP !"
2 ;"Stocks":
2 ;"Sales Units - Year ";t
2 ;"STRIKE":
2 ;"Reps & Renewals":
2 ;"Raw materials,wages":
2 ;"Profit & Loss":
2 ;"Production":
2 ;"Please collect your results."
2 ;"OLIGOPOLY"
2 ;"No. of years = ";tt:
2 ;"Newsflash!":
2 ;"Net assets":
2 ;"Marketing":
2 ;"Machinery":
2 ;"Interest":
2 ;"Interest Rates ":
2 ;"If orders rise above this,the";
2 ;"If orders fall below this,the";
2 ;"IMPORTS !"
2 ;"How many firms are there in the industry ?":
2 ;"Firm ";k:
2 ;"Firm ";k
2 ;"FORECAST":
2 ;"FINAL RESULTS":
2 ;"Each year each firm must decide how to raise its profits and thevalue of its shares, taking ac- count of other firms' decisions."
2 ;"Each `20 spent on Repairs and Renewals will enable you to produce an extra unit of output next year. You may spend up to `100000. Last year you spent `";
2 ;"Do you want another game? (y/n)":
2 ;"Dividends paid":
2 ;"Demand expected to rise ";g;"%"
2 ;"Demand expected to fall ";-g;"%"
2 ;"Costs expected to rise ";v;"%"
2 ;"Costs expected to fall ";-v;"%"
2 ;"Contribution to":
2 ;"Cash Flow":
2 ;"Capacity of equipment indus-":
2 ;"Balance Sheet":
2 ;"Asset Values - Year ";t
2 ;"Although you are the only playerthe Spectrum will run a rival firm (number 2).":
2 ;"Advice":
2 ;"Accounting Costs":
2 ;"ATTENTION ALL FIRMS !":
2 ;"(Year ";t-1
2 ;"(Total dividends paid: `";y(k);")"
2 ;"(Press any key to continue.)"
2 ;"(A 'negative' cost such as a tax refund is, of course, income !)"
2 ;"(2 to 25) "
2 ;"(1 to 6)"
2 ;"% . "
2 ;" Last year your price was ";p(k,t-1
2 ;" (obsolete)"
2 ;" (Year ";t-1
2 ;" (";q(k,t);")"
2 ;" Unfortunately this firm is bankrupt and will not be making any decisions ! ":
2 ;" How many years' would you like to play ?":
2 ;" High profits in the industry have attracted foreign comp- etition,which is expected to take ";
2 ;" Do you wish to use a printer ? (y/n)":
2 ;" Capital industries working overtime. "
2 ;" RESEARCH & DE
2 ;" 0 "
2 ;" ":
2 ;" ":
2 ;" MARKETING ":
2 ;" ":
2 ;" PRODUCTION ":
2 ;" NEW EQUIPMENT ":
2 ;" DIVIDENDS ":
2 ;" PRICE ":
2 ;" ":
2 ; "Your workers threaten to strike.Each firm must choose whether togive in to their demands, which would raise costs by about 20% or suffer a considerable loss ofoutput - perhaps a quarter. Firms may consult each other butmust decide in secret. Do you concede ? (y/n)"
2 ; " You may spend up to `100000 on marketing. Last year you spent `";m(k,t-1
2 ; "Research and development lowers costs and raises the appeal of the product. You may spend up to`100000. Last year you spent `";r(k,t-1
2 ; " By paying dividends to sharehol-ders, you make your company's shares more valuable. Last year you paid out ";d(k,t-1
2 ; "All decisions of firms should bein numbers. If letters are used,the request for a decision will begin again. If a firm spends orproduces too much or too little,it will be changed to the maxi- mum or minimum ."
2 ; " You may make up to ";
2 ; "Profits in the industry have caused concern and you have been referred to the Monopolies Commission. You may not raise your price next year."
2 ; "The Government announces that everyone is spending too much. It is therefore raising taxes by five percentage points to ";tr*100
2 ,u(k,t)*0.00033
2 ,n;n;" Firms.":
2 +y(k)+d(k,t)):
2 +s(k,t));" @ `";p(k,t);")":
2 +pp)/(p(k,t-1
2 +p(k,t))+(.1
2 +i(k,t))):
2 +f(k,t)/15
2 +e(k)+n(k,t)+o(k,t)-d(k,t))
2 +e(k)*-r/100
2 +d(k,t))):
2 +(p(k,t)*n))
2 *(e(k)-5000
2 );". "
2 );". "
2 );"% of the market."
2 );"% of the market. "
2 );" with overtime. "
2 );" this year, or ";
2 )/(r(k,t-1
2 )/(r(k,t)+1
2 )/(r(k,t)*n+1
2 )/(m(k,t-1
2 )/(m(k,t)+0.1
2 )/(m(k,t)*n+.1
2 )*v(k,t)/3
2 (s(k,t)*p(k,t)-h(k,t)-r(k,t)-i(k,t)-m(k,t)+0.5
2 (s(k,t)*p(k,t)+.5
2 (r(k,t)/(1
2 (r(k,t)*(1
2 (q(k,t)*(0.7
2 (p/n);" then.":
2 (p(k,t)*100
2 (p(k,t)*(1
2 (m(k,t)+r(k,t)+
2 (i(k,t)/f4):
2 (h20*i(k,t)+.5
2 (g(k,t)-o(k,t)-w(k,t)-t(k)+0.5
2 (g(k,t)-n(k,t)+.5
2 (e(k)-n(k,t)-o(k,t)+d(k,t)+.5
2 (c(k)-o(k,t))
2 (c(k)*b(k,t)+0.5
2 ((s(k,t)*p(k,t)+.5
2 "The Government announces that everyone is spending too much. It is therefore raising taxes by five percentage points to ";tr*100
2 "Profits in the industry have caused concern and you have been referred to the Monopolies Commission. You may not raise your price next year."
2 "Please declare your decisions on":
2 " Your price may vary between 1 and 99."
2 " Prices averaged around ";
2 " High profits in the industry have attracted foreign comp- etition,which is expected to take ";
2 " Newsflash! Capital industries working overtime"
2 "Your workers threaten to strike.Each firm must choose whether togive in to their demands, which would raise costs by about 20% or suffer a considerable loss ofoutput - perhaps a quarter. Firms may consult each other butmust decide in secret. Do you concede ? (y/n)"
1 OLIGOPOLY Ry
1 OLIGOPOLY D{
1 Created with Ramsoft MakeTZX
1 ;"HOPE YOU ENJOYED YOUR GAME";
1 ;"GOODBYE":